#!/usr/bin/perl -w
$^I = ".bak";
while (<>) {
  if (/^#!.*/) {
  $_ .= "## Copyright (c) 2012 by Alex\n";  
  }
print;
}

